screen _newimage(24,32, 27)

_DEFCHR$(0 , _
    "X..X..X." + _
    "X.....X." + _
    "X..X..X." + _
    "X.....X." + _
    "X..X..X." + _
    "X.....X." + _
    "X..X..X." + _
    "X.....X.")

_DEFCHR$(1 , _
    "X..X..X." + _
    ".X...X.." + _
    "X..X..X." + _
    ".X...X.." + _
    "X..X..X." + _
    ".X...X.." + _
    "X..X..X." + _
    ".X...X..")

_DEFCHR$(2 , _
    "X..X..X." + _
    "..X.X..." + _
    "X..X..X." + _
    "..X.X..." + _
    "X..X..X." + _
    "..X.X..." + _
    "X..X..X." + _
    "..X.X..." )

_DEFCHR$(3 , _
    "X..X..X." + _
    "...X...." + _
    "X..X..X." + _
    "...X...." + _
    "X..X..X." + _
    "...X...." + _
    "X..X..X." + _
    "...X....")

c = 0
inc% = +1

➔again:
    cls
    print chr$(c)
    _delay 0.5
    c = c + inc%
    if c = 3 or c = 0 then inc% = - inc%
    goto ➔again: